home *** CD-ROM | disk | FTP | other *** search
/ Carousel / CAROUSEL.cdr / mactosh / hc / share_pa.sit / Shareware Payroll / background_2596.txt < prev    next >
Text File  |  1988-08-18  |  12KB  |  329 lines
  1. -- background: 2596 from stack: in
  2. -- bmap block id: 4624
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 16 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=151 top=168 right=212 bottom=338
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Calculate Now
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   set the cursor to 4
  23.   set the numberFormat to "0.00"
  24.   put field 1 into married
  25.   put field 9 into hoh
  26.   put field Gross into gross
  27.   if married = "y" and gross < 36 then put "0" into fedtax
  28.   if married = "n" and gross < 12 then put "0" into fedtax
  29.   if married = "n" and gross > 12 and gross < 47 then put (.11 * (gross - 12)) into fedtax
  30.   if married = "n" and gross >47 and gross < 335 then put (.15 * (gross-47)) + 3.85 into fedtax
  31.   if married = "n" and gross >335 and gross < 532 then put (.28 * (gross-335)) + 47.05 into fedtax
  32.   if married = "n" and gross >532 and gross < 1051 then put (.35 * (gross-532)) + 102.21 into fedtax
  33.   if married = "n" and gross >1051 then put (.385 * (gross-1051)) + 283.86 into fedtax
  34.   if married = "y" and gross >36 and gross <93 then put (.11 * gross) into fedtax
  35.   if married = "y" and gross > 93 and gross < 574 then put (.15 * (gross - 93)) + 6.27 into fedtax
  36.   if married = "y" and gross > 574 and gross < 901 then put (.28 * (gross - 574)) + 78.42 into fedtax
  37.   if married = "y" and gross > 901 and gross < 1767 then put (.35 * (gross - 901)) + 169.98 into fedtax
  38.   if married = "y" and gross > 1767 then put (.385 * (gross - 1767)) + 473.08 into fedtax
  39.   put fedtax into field 4
  40.   put gross * .0715 into field 5
  41.   put gross * .012 into field 6
  42.   put field 2 into dependents
  43.   if married = "n" and gross < 108 then put "0" into statetax
  44.   if married = "y" and dependents <2 and gross < 108 then put "0" into statetax
  45.   if married = "y" and dependents >1 and gross < 217 then put "0" into statetax
  46.   if married = "n" and dependents <2 then put 33 into deduction
  47.   if married = "n" and dependents >1 then put 66 into deduction
  48.   if married ="y" and dependents <2 then put 33 into deduction
  49.   if married = "y" and dependents >1 then put 66 into deduction
  50.   put (gross - deduction) into taxable
  51.   --
  52.   --    Singles Section
  53.   --
  54.   if married = "n" and taxable > 0 and taxable < 67.01 then put (taxable * .01) into statetax
  55.   if married = "n" and taxable > 67 and taxable < 117.01 then put ((taxable * .02) - .67) into statetax
  56.   if married = "n" and taxable > 117 and taxable < 168.01 then put ((taxable * .03) - 1.84) into statetax
  57.   if married = "n" and taxable > 168 and taxable < 219.01 then put ((taxable * .04) - 3.54) into statetax
  58.   if married = "n" and taxable > 219 and taxable < 269.01 then put ((taxable * .05) - 5.72) into statetax
  59.   if married = "n" and taxable > 269 and taxable < 320.01 then put ((taxable * .06) - 8.39) into statetax
  60.   if married = "n" and taxable > 320 and taxable < 370.01 then put ((taxable * .07) - 11.62) into statetax
  61.   if married = "n" and taxable > 370 and taxable < 420.01 then put ((taxable * .08) - 15.32) into statetax
  62.   if married = "n" and taxable > 420 and taxable < 471.01 then put ((taxable * .09) - 19.48) into statetax
  63.   if married = "n" and taxable > 471 and taxable < 521.01 then put ((taxable * .10) - 24.24) into statetax
  64.   if married = "n" and taxable > 521 then put ((taxable * .11) - 29.43) into statetax
  65.   --
  66.   --     Unmarried Heads of Household section
  67.   --
  68.   if married = "n" and hoh = "y" and taxable > 0 and taxable < 134.01 then put (taxable * .01) into statetax
  69.   if married = "n" and hoh = "y" and taxable > 134 and taxable < 201.01 then put ((taxable * .02) - 1.34) into statetax
  70.   if married = "n" and hoh = "y" and taxable > 201 and taxable < 252.01 then put ((taxable * .03) - 3.35) into statetax
  71.   if married = "n" and hoh = "y" and taxable > 252 and taxable < 303.01 then put ((taxable * .04) - 5.87) into statetax
  72.   if married = "n" and hoh = "y" and taxable > 303 and taxable < 353.01 then put ((taxable * .05) - 8.93) into statetax
  73.   if married = "n" and hoh = "y" and taxable > 353 and taxable < 404.01 then put ((taxable * .06) - 12.43) into statetax
  74.   if married = "n" and hoh = "y" and taxable > 404 and taxable < 454.01 then put ((taxable * .07) - 16.50) into statetax
  75.   if married = "n" and hoh = "y" and taxable > 454 and taxable < 504.01 then put ((taxable * .08) - 21.02) into statetax
  76.   if married = "n" and hoh = "y" and taxable > 504 and taxable < 555.01 then put ((taxable * .09) - 26.05) into statetax
  77.   if married = "n" and hoh = "y" and taxable > 555 and taxable < 605.01 then put ((taxable * .10) - 31.63) into statetax
  78.   if married = "n" and hoh = "y" and taxable > 605 then put ((taxable * .11) - 37.65) into statetax
  79.   --
  80.   --   Married Section
  81.   --
  82.   if married = "y" and taxable > 0 and taxable < 135.01 then put (taxable * .01) into statetax
  83.   if married = "y" and taxable > 135 and taxable < 235 then put ((taxable * .02) - 1.35) into statetax
  84.   if married = "y" and taxable > 235 and taxable < 335 then put ((taxable * .03) - 3.7) into statetax
  85.   if married = "y" and taxable > 335 and taxable < 437 then put ((taxable * .04) - 7.04) into statetax
  86.   if married = "y" and taxable > 437 and taxable < 538 then put ((taxable * .05) - 11.4) into statetax
  87.   if married = "y" and taxable > 538 and taxable < 639 then put ((taxable * .06) - 16.77) into statetax
  88.   if married = "y" and taxable > 639 and taxable < 739 then put ((taxable * .07) - 23.18) into statetax
  89.   if married = "y" and taxable > 739 and taxable < 840 then put ((taxable * .08) - 30.57) into statetax
  90.   if married = "y" and taxable > 840 and taxable < 941 then put ((taxable * .09) - 38.95) into statetax
  91.   if married = "y" and taxable > 941 and taxable < 1042 then put ((taxable * .1) - 48.38) into statetax
  92.   if married = "y" and taxable > 1042 then put ((taxable * .11) - 58.87) into statetax
  93.   if married = "n" and dependents = 0 then subtract 0 from statetax
  94.   if married = "n" and dependents = 1 then subtract .8 from statetax
  95.   if married = "n" and dependents = 2 then subtract 1.1 from statetax
  96.   if married = "n" and dependents = 3 then subtract 1.4 from statetax
  97.   if married = "n" and dependents = 4 then subtract 1.6 from statetax
  98.   if married = "n" and dependents = 5 then subtract 1.9 from statetax
  99.   if married = "n" and dependents = 6 then subtract 2.2 from statetax
  100.   if married = "n" and dependents = 7 then subtract 2.4 from statetax
  101.   if married = "n" and dependents = 8 then subtract 2.7 from statetax
  102.   if married = "n" and dependents = 9 then subtract 3 from statetax
  103.   if married = "n" and dependents >10 then subtract (3.2 + ((dependents - 10) * .2)) from statetax
  104.   if married = "y" and dependents = 0 then subtract 0 from statetax
  105.   if married = "y" and dependents = 1 then subtract .8 from statetax
  106.   if married = "y" and dependents = 2 then subtract 1.7 from statetax
  107.   if married = "y" and dependents = 3 then subtract 1.9 from statetax
  108.   if married = "y" and dependents = 4 then subtract 2.2 from statetax
  109.   if married = "y" and dependents = 5 then subtract 2.5 from statetax
  110.   if married = "y" and dependents = 6 then subtract 2.7 from statetax
  111.   if married = "y" and dependents = 7 then subtract 3 from statetax
  112.   if married = "y" and dependents = 8 then subtract 3.3 from statetax
  113.   if married = "y" and dependents = 9 then subtract 3.5 from statetax
  114.   if married = "y" and dependents >10 then subtract (3.8 + ((dependents - 10) * .3)) from statetax
  115.   put statetax into field 7
  116.   if field 7 < 0 then put 0 into field 7
  117.   put field 3 - field 4 - field 5 - field 6 - field 7 into field 8
  118.   global counter
  119.   add 1 to counter
  120.   if counter = 2 then doMenu "Quit HyperCard"
  121. end mouseUp
  122.  
  123.  
  124.  
  125. -- part 20 (field)
  126. -- low flags: 00
  127. -- high flags: 0004
  128. -- rect: left=253 top=74 right=97 bottom=324
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 0 / 0
  131. -- text alignment: 1
  132. -- font id: 0
  133. -- text size: 12
  134. -- style flags: 0
  135. -- line height: 16
  136. -- part name: Married ?
  137.  
  138.  
  139. -- part 23 (field)
  140. -- low flags: 00
  141. -- high flags: 0004
  142. -- rect: left=253 top=103 right=126 bottom=325
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 0 / 0
  145. -- text alignment: 1
  146. -- font id: 0
  147. -- text size: 12
  148. -- style flags: 0
  149. -- line height: 16
  150. -- part name: kids
  151.  
  152.  
  153. -- part 28 (field)
  154. -- low flags: 00
  155. -- high flags: 0004
  156. -- rect: left=253 top=132 right=154 bottom=325
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 0 / 0
  159. -- text alignment: 1
  160. -- font id: 0
  161. -- text size: 12
  162. -- style flags: 0
  163. -- line height: 16
  164. -- part name: Gross
  165. ----- HyperTalk script -----
  166. on CloseField
  167.   send mouseUp to bkgnd button 1
  168. end CloseField
  169.  
  170.  
  171. -- part 29 (field)
  172. -- low flags: 01
  173. -- high flags: 0000
  174. -- rect: left=65 top=245 right=262 bottom=128
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 0 / 0
  177. -- text alignment: 1
  178. -- font id: 0
  179. -- text size: 12
  180. -- style flags: 0
  181. -- line height: 16
  182. -- part name: Federal
  183.  
  184.  
  185. -- part 30 (field)
  186. -- low flags: 01
  187. -- high flags: 0000
  188. -- rect: left=147 top=245 right=262 bottom=210
  189. -- title width / last selected line: 0
  190. -- icon id / first selected line: 0 / 0
  191. -- text alignment: 1
  192. -- font id: 0
  193. -- text size: 12
  194. -- style flags: 0
  195. -- line height: 16
  196. -- part name: F.I.C.A.
  197.  
  198.  
  199. -- part 31 (field)
  200. -- low flags: 01
  201. -- high flags: 0000
  202. -- rect: left=221 top=245 right=262 bottom=284
  203. -- title width / last selected line: 0
  204. -- icon id / first selected line: 0 / 0
  205. -- text alignment: 1
  206. -- font id: 0
  207. -- text size: 12
  208. -- style flags: 0
  209. -- line height: 16
  210. -- part name: S.D.I.
  211.  
  212.  
  213. -- part 32 (field)
  214. -- low flags: 01
  215. -- high flags: 0000
  216. -- rect: left=292 top=245 right=262 bottom=355
  217. -- title width / last selected line: 0
  218. -- icon id / first selected line: 0 / 0
  219. -- text alignment: 1
  220. -- font id: 0
  221. -- text size: 12
  222. -- style flags: 0
  223. -- line height: 16
  224. -- part name: State
  225.  
  226.  
  227. -- part 33 (field)
  228. -- low flags: 01
  229. -- high flags: 0000
  230. -- rect: left=374 top=245 right=262 bottom=437
  231. -- title width / last selected line: 0
  232. -- icon id / first selected line: 0 / 0
  233. -- text alignment: 1
  234. -- font id: 0
  235. -- text size: 12
  236. -- style flags: 0
  237. -- line height: 16
  238. -- part name: Net Pay
  239.  
  240.  
  241. -- part 43 (button)
  242. -- low flags: 00
  243. -- high flags: 8000
  244. -- rect: left=173 top=276 right=325 bottom=226
  245. -- title width / last selected line: 0
  246. -- icon id / first selected line: 2 / 2
  247. -- text alignment: 1
  248. -- font id: 0
  249. -- text size: 12
  250. -- style flags: 0
  251. -- line height: 16
  252. -- part name: Warning
  253. ----- HyperTalk script -----
  254. on mouseUp
  255.   go card 3
  256. end mouseUp
  257.  
  258.  
  259.  
  260. -- part 44 (button)
  261. -- low flags: 00
  262. -- high flags: 8000
  263. -- rect: left=92 top=276 right=325 bottom=145
  264. -- title width / last selected line: 0
  265. -- icon id / first selected line: 1020 / 1020
  266. -- text alignment: 1
  267. -- font id: 0
  268. -- text size: 12
  269. -- style flags: 0
  270. -- line height: 16
  271. -- part name: Help
  272. ----- HyperTalk script -----
  273. on mouseUp
  274.   go card 2
  275. end mouseUp
  276.  
  277.  
  278.  
  279. -- part 45 (button)
  280. -- low flags: 00
  281. -- high flags: 8000
  282. -- rect: left=254 top=276 right=325 bottom=308
  283. -- title width / last selected line: 0
  284. -- icon id / first selected line: 1 / 1
  285. -- text alignment: 1
  286. -- font id: 0
  287. -- text size: 12
  288. -- style flags: 0
  289. -- line height: 16
  290. -- part name: Register!
  291. ----- HyperTalk script -----
  292. on mouseUp
  293.   go card 4
  294. end mouseUp
  295.  
  296.  
  297.  
  298. -- part 46 (field)
  299. -- low flags: 00
  300. -- high flags: 0004
  301. -- rect: left=253 top=45 right=68 bottom=324
  302. -- title width / last selected line: 0
  303. -- icon id / first selected line: 0 / 0
  304. -- text alignment: 1
  305. -- font id: 0
  306. -- text size: 12
  307. -- style flags: 0
  308. -- line height: 16
  309. -- part name: hoh
  310.  
  311.  
  312. -- part 47 (button)
  313. -- low flags: 00
  314. -- high flags: 8000
  315. -- rect: left=339 top=276 right=325 bottom=393
  316. -- title width / last selected line: 0
  317. -- icon id / first selected line: 14953 / 14953
  318. -- text alignment: 1
  319. -- font id: 0
  320. -- text size: 12
  321. -- style flags: 0
  322. -- line height: 16
  323. -- part name: Quit
  324. ----- HyperTalk script -----
  325. on mouseUp
  326.   doMenu "Quit HyperCard"
  327. end mouseUp
  328.  
  329.